home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gxdcolor.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-19  |  6.9 KB  |  211 lines
  1. /* Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gxdcolor.c */
  20. /* Pure and null device color implementation */
  21. #include "gx.h"
  22. #include "gsbittab.h"
  23. #include "gxdcolor.h"
  24. #include "gxdevice.h"
  25.  
  26. /* Define the standard device color types. */
  27. private dev_color_proc_load(gx_dc_no_load);
  28. private dev_color_proc_fill_rectangle(gx_dc_no_fill_rectangle);
  29. private dev_color_proc_fill_masked(gx_dc_no_fill_masked);
  30. private dev_color_proc_load(gx_dc_pure_load);
  31. private dev_color_proc_fill_rectangle(gx_dc_pure_fill_rectangle);
  32. private dev_color_proc_fill_masked(gx_dc_pure_fill_masked);
  33. const gx_device_color_procs
  34.   gx_dc_procs_none =
  35.     { gx_dc_no_load, gx_dc_no_fill_rectangle, gx_dc_no_fill_masked, 0, 0 },
  36.   /* null is different from none, but it has the same procedures. */
  37.   gx_dc_procs_null =
  38.     { gx_dc_no_load, gx_dc_no_fill_rectangle, gx_dc_no_fill_masked, 0, 0 },
  39.   gx_dc_procs_pure =
  40.     { gx_dc_pure_load, gx_dc_pure_fill_rectangle, gx_dc_pure_fill_masked, 0, 0 };
  41. #undef gx_dc_type_none
  42. const gx_device_color_procs _ds *gx_dc_type_none = &gx_dc_procs_none;
  43. #define gx_dc_type_none (&gx_dc_procs_none)
  44. #undef gx_dc_type_null
  45. const gx_device_color_procs _ds *gx_dc_type_null = &gx_dc_procs_null;
  46. #define gx_dc_type_null (&gx_dc_procs_null)
  47. #undef gx_dc_type_pure
  48. const gx_device_color_procs _ds *gx_dc_type_pure = &gx_dc_procs_pure;
  49. #define gx_dc_type_pure (&gx_dc_procs_pure)
  50.  
  51. /* Define a null RasterOp source (for black = 0). */
  52. const gx_rop_source_t gx_rop_no_source_0 = { gx_rop_no_source_body(0) };
  53.  
  54. /* ------ Null color ------ */
  55.  
  56. private int
  57. gx_dc_no_load(gx_device_color *pdevc, const gs_imager_state *ignore_pis,
  58.   gx_device *ignore_dev, gs_color_select_t ignore_select)
  59. {    return 0;
  60. }
  61.  
  62. private int
  63. gx_dc_no_fill_rectangle(const gx_device_color *pdevc, int x, int y,
  64.   int w, int h, gx_device *dev, gs_logical_operation_t lop,
  65.   const gx_rop_source_t *source)
  66. {    return 0;
  67. }
  68.  
  69. private int
  70. gx_dc_no_fill_masked(const gx_device_color *pdevc, const byte *data,
  71.   int data_x, int raster, gx_bitmap_id id, int x, int y, int w, int h,
  72.   gx_device *dev, gs_logical_operation_t lop, bool invert)
  73. {    return 0;
  74. }
  75.  
  76. /* ------ Pure color ------ */
  77.  
  78. private int
  79. gx_dc_pure_load(gx_device_color *pdevc, const gs_imager_state *ignore_pis,
  80.   gx_device *ignore_dev, gs_color_select_t ignore_select)
  81. {    return 0;
  82. }
  83.  
  84. /* Fill a rectangle with a pure color. */
  85. /* Note that we treat this as "texture" for RasterOp. */
  86. private int
  87. gx_dc_pure_fill_rectangle(const gx_device_color *pdevc, int x, int y,
  88.   int w, int h, gx_device *dev, gs_logical_operation_t lop,
  89.   const gx_rop_source_t *source)
  90. {    if ( source == NULL && lop_no_S_is_T(lop) )
  91.       return (*dev_proc(dev, fill_rectangle))(dev, x, y, w, h,
  92.                           pdevc->colors.pure);
  93.     { gx_color_index colors[2];
  94.       gx_rop_source_t no_source;
  95.  
  96.       colors[0] = colors[1] = pdevc->colors.pure;
  97.       if ( source == NULL )
  98.         set_rop_no_source(source, no_source, dev);
  99.       return (*dev_proc(dev, strip_copy_rop))
  100.         (dev, source->sdata, source->sourcex, source->sraster,
  101.          source->id, (source->use_scolors ? source->scolors : NULL),
  102.          NULL /*arbitrary*/, colors, x, y, w, h, 0, 0, lop);
  103.     }
  104. }
  105.  
  106. /* Fill a mask with a pure color. */
  107. /* Note that there is no source in this case: the mask is the source. */
  108. private int
  109. gx_dc_pure_fill_masked(const gx_device_color *pdevc, const byte *data,
  110.   int data_x, int raster, gx_bitmap_id id, int x, int y, int w, int h,
  111.   gx_device *dev, gs_logical_operation_t lop, bool invert)
  112. {    if ( lop_no_S_is_T(lop) )
  113.       { gx_color_index color0, color1;
  114.         if ( invert )
  115.           color0 = pdevc->colors.pure, color1 = gx_no_color_index;
  116.         else
  117.           color1 = pdevc->colors.pure, color0 = gx_no_color_index;
  118.         return (*dev_proc(dev, copy_mono))
  119.           (dev, data, data_x, raster, id, x, y, w, h, color0, color1);
  120.       }
  121.     { gx_color_index scolors[2];
  122.       gx_color_index tcolors[2];
  123.  
  124.       scolors[0] = (*dev_proc(dev, map_rgb_color))
  125.         (dev, (gx_color_value)0, (gx_color_value)0, (gx_color_value)0);
  126.       scolors[1] = (*dev_proc(dev, map_rgb_color))
  127.         (dev, gx_max_color_value, gx_max_color_value, gx_max_color_value);
  128.       tcolors[0] = tcolors[1] = pdevc->colors.pure;
  129.       return (*dev_proc(dev, strip_copy_rop))
  130.         (dev, data, data_x, raster, id, scolors,
  131.          NULL, tcolors, x, y, w, h, 0, 0,
  132.          (invert ? rop3_invert_S(lop) : lop) | lop_S_transparent);
  133.     }
  134. }
  135.  
  136. /* ------ Default implementations ------ */
  137.  
  138. /* Fill a mask with a color by parsing the mask into rectangles. */
  139. int
  140. gx_dc_default_fill_masked(const gx_device_color *pdevc, const byte *data,
  141.   int data_x, int raster, gx_bitmap_id id, int x, int y, int w, int h,
  142.   gx_device *dev, gs_logical_operation_t lop, bool invert)
  143. {    int lbit = data_x & 7;
  144.     const byte *row = data + (data_x >> 3);
  145.     uint one = (invert ? 0 : 0xff);
  146.     uint zero = one ^ 0xff;
  147.     int iy;
  148.  
  149.     for ( iy = 0; iy < h; ++iy, row += raster )
  150.       { const byte *p = row;
  151.         int bit = lbit;
  152.         int left = w;
  153.         int l0;
  154.  
  155.         while ( left )
  156.           { int run, code;
  157.  
  158.             /* Skip a run of zeros. */
  159.             run = byte_bit_run_length[bit][*p ^ one];
  160.         if ( run )
  161.           { if ( run < 8 )
  162.               { if ( run >= left )
  163.               break;    /* end of row while skipping */
  164.                 bit += run, left -= run;
  165.               }
  166.             else if ( (run -= 8) >= left )
  167.               break;        /* end of row while skipping */
  168.             else
  169.               { left -= run;
  170.                 ++p;
  171.             while ( left > 8 && *p == zero )
  172.               left -= 8, ++p;
  173.             run = byte_bit_run_length_0[*p ^ one];
  174.             if ( run >= left ) /* run < 8 unless very last byte */
  175.               break;    /* end of row while skipping */
  176.             else
  177.               bit = run & 7, left -= run;
  178.               }
  179.           }
  180.  
  181.         l0 = left;
  182.         /* Scan a run of ones, and then paint it. */
  183.         run = byte_bit_run_length[bit][*p ^ zero];
  184.         if ( run < 8 )
  185.           { if ( run >= left )
  186.               left = 0;
  187.             else
  188.               bit += run, left -= run;
  189.           }
  190.         else if ( (run -= 8) >= left )
  191.           left = 0;
  192.         else
  193.           { left -= run;
  194.             ++p;
  195.             while ( left > 8 && *p == one )
  196.               left -= 8, ++p;
  197.             run = byte_bit_run_length_0[*p ^ zero];
  198.             if ( run >= left ) /* run < 8 unless very last byte */
  199.               left = 0;
  200.             else
  201.               bit = run & 7, left -= run;
  202.           }
  203.         code = gx_device_color_fill_rectangle(pdevc,
  204.             x + w - l0, y + iy, l0 - left, 1, dev, lop, NULL);
  205.         if ( code < 0 )
  206.           return code;
  207.           }
  208.       }
  209.     return 0;
  210. }
  211.